home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE18 / SURVIVE / FMMAIN.DFM / FMMAIN.txt
Text File  |  1996-12-06  |  3KB  |  114 lines
  1. object frmMain: TfrmMain
  2.   Left = 216
  3.   Top = 225
  4.   Width = 516
  5.   Height = 303
  6.   Caption = 'Login Demo'
  7.   Color = clWhite
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Menu = mnuMain
  13.   Position = poScreenCenter
  14.   OnClose = FormClose
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object StatusLine: TStatusBar
  19.     Left = 0
  20.     Top = 237
  21.     Width = 508
  22.     Height = 20
  23.     Font.Color = clBlack
  24.     Font.Height = -11
  25.     Font.Name = 'MS Sans Serif'
  26.     Font.Style = []
  27.     Panels = <
  28.       item
  29.         Text = 'No User'
  30.         Width = 150
  31.       end
  32.       item
  33.         Width = 150
  34.       end
  35.       item
  36.         Text = 'Not Connected'
  37.         Width = 50
  38.       end>
  39.     ParentFont = False
  40.     SimplePanel = False
  41.   end
  42.   object grdAuditTrail: TDBGrid
  43.     Left = 0
  44.     Top = 0
  45.     Width = 508
  46.     Height = 237
  47.     Align = alClient
  48.     DataSource = dsAuditTrail
  49.     TabOrder = 1
  50.     TitleFont.Color = clWindowText
  51.     TitleFont.Height = -11
  52.     TitleFont.Name = 'MS Sans Serif'
  53.     TitleFont.Style = []
  54.     Visible = False
  55.   end
  56.   object mnuMain: TMainMenu
  57.     Left = 92
  58.     object ApplicationMenu: TMenuItem
  59.       Caption = '&Application'
  60.       ShortCut = 0
  61.       object ApplicationLoginItem: TMenuItem
  62.         Caption = '&Login'
  63.         ShortCut = 0
  64.         OnClick = ApplicationLoginItemClick
  65.       end
  66.       object ApplicationLogoutItem: TMenuItem
  67.         Caption = 'Log&out'
  68.         Enabled = False
  69.         ShortCut = 0
  70.         OnClick = ApplicationLogoutItemClick
  71.       end
  72.       object ApplicationChangePasswordItem: TMenuItem
  73.         Caption = '&Change Password...'
  74.         Enabled = False
  75.         ShortCut = 0
  76.         OnClick = ApplicationChangePasswordItemClick
  77.       end
  78.       object N1: TMenuItem
  79.         Caption = '-'
  80.         ShortCut = 0
  81.       end
  82.       object ApplicationExitItem: TMenuItem
  83.         Caption = 'E&xit'
  84.         ShortCut = 0
  85.         OnClick = ExitMenuClick
  86.       end
  87.     end
  88.     object ExitMenu: TMenuItem
  89.       Caption = 'E&xit'
  90.       ShortCut = 0
  91.       OnClick = ExitMenuClick
  92.     end
  93.   end
  94.   object dbAppMain: TDatabase
  95.     AliasName = 'TEST1'
  96.     DatabaseName = 'AppMainDB'
  97.     Params.Strings = (
  98.       'DATABASE NAME=Test2'
  99.       'USER NAME=sa')
  100.     SessionName = 'Default'
  101.     Left = 131
  102.   end
  103.   object tblAuditTrail: TTable
  104.     DatabaseName = 'AppMainDB'
  105.     ReadOnly = True
  106.     TableName = 'dbo.AuditTrail'
  107.     Left = 169
  108.   end
  109.   object dsAuditTrail: TDataSource
  110.     DataSet = tblAuditTrail
  111.     Left = 208
  112.   end
  113. end
  114.